package Prueba_Vector is
   I : Integer;
   type Vector_Enteros = array (1..31) of integer;
   V : Vector_Enteros;
   procedure Iniciar (I : in out Integer);
end Prueba_Vector;

package body Prueba_Vector is
   procedure Iniciar (I : in out Integer) is
   begin
      V(1)  :=  1;
      V(2)  :=  2;
      V(3)  :=  3;
      V(4)  :=  4;
      V(5)  :=  5;
      V(6)  :=  6;
      V(7)  :=  7;
      V(8)  :=  8;
      V(9)  :=  9;
      V(10) := 10;
      V(11) := 11;
      V(12) := 12;
      V(13) := 13;
      V(14) := 14;
      V(15) := 15;
      V(16) := 16;
      V(17) := 17;
      V(18) := 18;
      V(19) := 19;
      V(20) := 20;
      V(21) := 21;
      V(22) := 22;
      V(23) := 23;
      V(24) := 24;
      V(25) := 25;
      V(26) := 26;
      V(27) := 27;
      V(28) := 28;
      V(29) := 29;
      V(30) := 30;
      V(31) := 31;
   end Iniciar;

begin
   Iniciar(I);
end Prueba_Vector;
